home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musictex.507 / MUSICDEF.MF < prev    next >
Text File  |  1991-11-07  |  2KB  |  62 lines
  1. % this is musicdef.mf
  2. %
  3. %
  4. % hier evtl. mode fuer gewuenschten output setzen
  5. %
  6. %  AGFA P400 mode: for devices that print 406 pixels per inch
  7. %  mode_def agfa  =
  8. %   proofing:=0;
  9. %   fontmaking:=1;
  10. %   tracingtitles:=0;
  11. %   pixels_per_inch:=406;
  12. %   blacker:=0.65;
  13. %   fillin:=0;
  14. %   o_correction:=1;
  15. %   enddef;
  16. %  localfont:=agfa;
  17. %  mode:=agfa;
  18. %  mode_setup;
  19. %
  20. %
  21. %mode_def ibm =    % ibm mode: for the IBM3820
  22. % proofing:=0;      % no, we're not making proofs
  23. % fontmaking:=1;      % yes, we are making a font
  24. % tracingtitles:=0;    % no, don't show titles in the log
  25. % pixels_per_inch:=300;
  26. % blacker:=.78;      % (this value is conjectural)
  27. % fillin:=0.25;      % (ditto)
  28. % o_correction:=.5;    % (ditto)
  29. % enddef;
  30. %localfont:=ibm;
  31. %mode:=ibm;
  32. mode_setup;
  33. %
  34. %fontmaking:=1;
  35. turningcheck:=1;
  36. displaying:=2;
  37. designsize:=16;
  38. nhh#:=1/4designsize; %noteheadheight
  39. nhw#:=1.2nhh#; %noteheadwidth
  40. beamht#:=0.6nhh#; %Balkenst"arke
  41. nhh:=nhh#*pt; %noteheadheight *pt
  42. nhw:=nhw#*pt; %noteheadwidth  *pt
  43. thinwidth := 0.4pt;
  44. beamht := beamht#*pt;
  45. s := 1.0pt;
  46. S := 1/16designsize;
  47. %pair constants
  48. pair ne,se,sw,nw; %northeast,southeast,southwest,northwest
  49. ne = up+right; se = down+right; sw = down+left; nw = up+left;
  50. openit;
  51. def clear =
  52.   numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[];
  53.   pair    sh[];
  54. enddef;
  55. %
  56. pickup pencircle scaled (0.1pt);
  57. def penstrike text t =
  58.  forsuffixes e = l,r: path_.e:=t; endfor
  59.  if cycle path_.l: cyclestroke_
  60.  else: filldraw path_.l -- reverse path_.r -- cycle fi enddef;
  61. %
  62.